home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 17 / Tiger_Disk_017_19xx_Tiger-Crew-Disk_de_Side_A.d64 / rechnen trainer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  70 lines
  1. 5 poke53281,.:poke53280,.:poke646,13
  2. 10 print"[147]rechentrainer
  3. 15 [153]"zur auswahl stehen
  4. 20 print"die 4 grundoperationen
  5. 25 [153]"          +  -  x  /
  6. 30 print"in 4 schwierigkeitsstufen [146]1,2,3,4
  7. 35 [153]"druecke
  8. 40 print"operation,schwierigkeitsgrad (return)
  9. 45 [133] a$,b$:ti$[178]"000000"
  10. 50 [139] b$[178]"1"[167]k[178]50:l[178]40:[137]75
  11. 55 [139] b$[178]"2"[167]k[178]100:l[178]90:[137]75
  12. 60 [139] b$[178]"3"[167] k[178]200:l[178]150:[137]75
  13. 65 [139] b$[178]"4"[167] k[178]300:l[178]250:[137]75
  14. 70 k[178]1000:l[178]1000
  15. 75 [141]6000
  16. 85 [139] a$[178]"-"[167]2000
  17. 90 [139] a$[178]"x"[167] 3000
  18. 95 [139] a$[178]"/"[167] 4000
  19. 100 [139] a$[178]""[167][153]"operation?":[133]a$:[137]85
  20. 110 [139] b$[178]""[167][153]"schwierigkeitsgrad?":[133]b$:[137]50
  21. 1000 [143]
  22. 1050 r[178][181](a):s[178][181](b):t[178]r[170]s
  23. 1060 [153]"load"r  "+"  s  "=  "
  24. 1070 [153]"on"[163]25):[133]c:[139] c[179][177]t [167] [137] 10000
  25. 1080 g[178]g[170]1:[141]6000
  26. 1083 [139] g[178]20[167]8000
  27. 1085 [137]1050
  28. 1090 [128]
  29. 2000 r[178][181](a):s[178][181](b):t[178]r[171]s:[139]t[179]0[167]t[178]s[171]r
  30. 2010 [139]r[177]s[167][153]"load"r  "-"   s   "="
  31. 2020 [139]r[179]s[167][153]"load"s  "-"   r   "="
  32. 2030 [153]"on"[163]25):[133]c:[139]c[179][177]t[167]10000
  33. 2040 g[178]g[170]1:[141]6000
  34. 2050 [139]g[178]20[167]8000
  35. 2060 [137]2000
  36. 3000 r[178][181](a[173]10[170]3):s[178][181](b[173]5[170]3):t[178]r[172]s
  37. 3010 [153]"load"r"x"   s  "=  "
  38. 3020 [153]"on"[163]25):[133]c:[139]c[179][177]t[167][141]10000
  39. 3030 g[178]g[170]1:[141]6000
  40. 3035 [139]g[178]20[167]8000
  41. 3040 [137]3000
  42. 4000 r[178][181](a[173]8[170]1)[172][181](b[173]4[170]1):s[178][181](a[173]8[170]1):t[178][181](b[173]4[170]1)
  43. 4010 [153]"load"r":"s"="
  44. 4020 [153]"on"[163]25):[133] c:[139] c[179][177]t [167]10000
  45. 4030 g[178]g[170]1:[141]6000
  46. 4040 [139] g[178]20 [167] 8000
  47. 4050 [137]4000
  48. 6000 a[178][187](1)[172]k[170]1
  49. 6010 b[178][187](1)[172]l[170]1
  50. 6020 [142]
  51. 8000 [153]"loaddeine zeit war  ";
  52. 8005 [153]"";[202](ti$,3,1);" min ";[201](ti$,2);" sek
  53. 8010 print"du hast "g"[146]gut"
  54. 8020 print"und     ";f"[146]falsch
  55. 8022 [153]"noch ein durchgang? (j/n)
  56. 8024 get r$:if r$=""then8024
  57. 8026 if r$="j"thengoto9000
  58. 8028 if r$<>"n"then8000
  59. 8029 print"[147]uebung macht den meister!
  60. 8030 [128]
  61. 9000 [153]"loadaenderung?   (j/n)  "
  62. 9005 [161]c$:[139]c$[178]""[167]9005
  63. 9006 [139]c$[178]"j"[167][138]
  64. 9010 a$[178]"x":b$[178]"1":ti$[178]"000000":f[178]0:g[178]0:[137]50
  65. 10000 [153]"loaddas war falsch! noch einmal":f[178]f[170]1:[129]i[178]1[164]1000:[130]:
  66. 10010 [139]a$[178]"+"[167]1000
  67. 10020 [139]a$[178]"-"[167]2000
  68. 10030 [139]a$[178]"x"[167]3000
  69. 10040 [139]a$[178]"/"[167]4000
  70.